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SsetCRv) 
Snocond 
Sif Rv 
StitleC’PARTIAL MODEL BOOTSTRAP PROGRAM’) 
Selseif Fv 
Sandif 
Snointvector 
CBSbootstrap: 
cdo, 
S$include C:f1l:pron.lit) 
1* 
Intel Corporation Proprietary Information. This listing is 
supplied under the terms of a licens? agreement with Intel 
Corporation and may not be copied ner disclosed except in 
accordance with the terms of the acreement. 
* / 
Snolist includeC:f1:commonslit) 
Snolist includeC€:fiskaos.dcp) 
Snolist include(:f1:dll.dcp) 
/x 
declare literals 
xf 
declare /*x 
declare commands first 
xf 
CSPresence literally °1’, 
CS$LocalSloads3go literally ’ 
CeRemotesboot literally °3’ 
CSMIPSinitfgo literally °4’ 
C$Local$load literally 
C$Localfdump literally 
C$Go literally ’7’, 
CSRemotedSforced$bootSgo literally °9’, 
C$doSechosrequest literally °8&’, 
CSechofirequest literally °10°, 
CS$RemotesdumpSrequest literally ’°11%, 
C$do$reset literally ’12’, 
3 
now declere responses 
x | 
CHD3OK literally ‘17%, 
NoS$response literally ‘2’, 
ESEOF literally °3’%, 
Nogecho literally ’2’, 
AbortSboot literally °47’, 


’ 
7 


2 
7 
y 


a= a 
> 2 
ese@ 
oO «sf 


RL$noSresponse literally ‘2’, 
BadScommana literally ‘’OFFH’, 
/x 
declare NML commands that are processed by hoot 
xf 
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$aject 
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Vi Sieve: Te tere sy SOC Cu 7 
NMLStypeSr literally ‘0050h’, 
NMLSremotefrequest literally °1’, 
NML$remotefreply literally ’27, 
NML$forced3boot$go literally °3%, 
NMLSbootScmdSrequest literally °4’, 
NMLSbootScmd$response literally °5’, 
NMLSbootSdatasSrequest literally °6’%, 
NMLEboot3dataSresponse literally ’°7’, 
NML3echoSrequest literally ’8%, 
NMLSechosresponse literally ‘9’, 


NMLSremotefdumpSrecuest literally ’10’, 
NMLSremotefdump$response literally °117’, 


NML¢reset literally °15°, 
/* 

declare Mip limits 
x / 
MIPSdevices literally °6’, 
MIPSids$s literally °38’, 
/x* 

declere OMF bits 
x / 
Morebit literally °1H’, 
Start$bit literally °2H’, 
1* 

ceclere LSI device addresses 
x/ 
PIC$SP8 literally ’QE1H’, 
PICS$PC literally ’OE2H’, 
PICSCMD literally ’OFOH’, 
PICSDATA literally ‘OF1H’, 
PICSMASK literally ‘OF1H’%, 
/* 

declére PIC cmds 
* / 
PICSICW1 literally ’°000130011B’, 
PICSICW2 literelly *0001$00003’, 
PICSICW4 literally *0000%0C0118°, 
POLLSPIC literelly ‘OCH’; 
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/* 
declare extarnal variablas. These will all be in other CB firmware 


modules 


for Mip Tirst 


xf/ 
101 1 declara CQSMIPSIdsthases (MipSidss) structure (¢ 
hase bytes 
length byte) external, 
CQSMiPSDevice$info (MipSdevices) structure ( 
devid byte, 
Status byte,r 
RQ@Oin pointer, 
RQDout pointer, 
Int3type byte, 
TimeftoSuait byte, 
IntS$adr word ) external, 
CQtThisdevice byte external, 


Seject 
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/* 
declare external procedures 


first the confidence tast routines 


x / 
402 1 CQSramStest: 
103 2 procedure byte externals end CQSramStests 
104 1 CQSaeviceStest: 
105 2 procedure byte externals and CQScdeviceftests 
op 
now init routine 
* / 
106 2 CQSCBSinit: procedure externals enc CQtC3$init- 
108 : CQSHdwSinit: procedure externals end CQtHdwsinits 
/x | . 
now for special routines for accessing other routines 
x/ : 
110 1 LongSgoto: procedure (SA) extarnel, 
111 fa declare SA pointers end Longtsoto,; 
113 1 Short3call: procedure(SA) external, 
114 er ° declare SA words end ShortScall; 
116 1 Subsystemtcall: precedureCPara,Proc) external, 
117 2 declare (Para,srProc) tuords end Subsystemcall, 
/* 
MIP now 
x/ . 
119 2 CQSMIPSinit: procedure external, end COEMIPSinit, 
121 2 "  CQSMIP$Intask: procedure externals end CQSMIPSIntask; 
tee. 2 CQmiphalt: procedure externals end CQmiphalt- 
/*x 
now to external data link 
x / 
125 1 EOL¢start: 
126 2 procedure external, end EDLSstart-, 
/* 
declare restart point 
xf 
127 1 declare CQS00t$dmtSentry address external; 
128 1 declare Currentversion bytes externel;, 
129 1 declare CQmipdevent byte external, 
CQmipdevtoentry (¢€3) byte external, 
130 1 declare CQ_DLL_hostid (4) byte external, 
eject 
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131 1 declarz 


/« 

declare structures te get command block address 
xf. 
Copyricht ¢(*) byte datact’(C) 1984 INTEL CORP’), 


CmaSblockSptr pointer public, 
CBptr structure (off words base word) at CACmdfEblockSptr), 
CmdsblockSptr3So word at CACBptr.off), 
CudSbiock3ptrsb word at (SCBptr.base), 
Cmd3bleck3addresses (3) word public 
dataCOFé9H-1FO00H,2041H,10C0H,800H-1000H,-2000H,2FCOH), 
l* 
declare variebles for control purposes 
x / 
FirstSkboottemd byte at COF3FFFH), 
Miprunning boolean at COFZFFEH)- 
RanSRT boolean at COFS3FFOH), 
/* 
declare variables for buffering purposes in remote loading 
x/ 
NumSremaining word, 
LastSbuffer boolean, 
Bufptr pointer, 
Bufadr structure ( 
Offset word, 
Bese word) at (CaBufetrd, 
/* 
declare local variables for various purposes 
x/ 
CTresult byte public + 
Run boolean, 
Cmd byt2 public, 
NMLSentry word public, 
ExecutionsSaA werd public, 
MipSdef$ptr pointar public, 
DLLEbufptr pointer, 
DLLSbufptrféo werd public at (CaACLLbufptr), 
/* 
declare data structures for CA handling 
*/ 
CQSbootiemdSmb (16) byte external, 
LocalsbootScemd$msy structure ¢ 
link pointer, 
Length word, 
dllsfiller (12) byte, 
type word ) public ,- 
/x 
declares structure for remote comm . 
x/ 
CAPR|emoteSuaitingsmb (€16) kyte external, 
CQswaitfackh (14) byte external, 
Tries byte public, 
/* 
to convert from local to remote commands 
x/ 
RamoteSto$localScemd (16) byte data (0-0-0,C$RemoteSForcedShoot$go, 
C,0-C,0,CSechoSrequest-0,C$remotefdumpSrequest,0,0,0,/C,/CSdosreset), 
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/* 
data structures for remote becting 
*/ 
RemotetbooterSadr (6) byte data COTH-OAAH,C-OFFH,OFFH-CFFH), 
TempSbuf structure (¢ 
Srcadr (6) byte, 
Type words 
Cmd bytes 
Start$adr pointer, 
Length werd ) public, 
RemoteSserver$gedr (6) byte at CaTemeSbuf.srcadr), 
Reqclass word at CaTemp3buf.Start$adr), 
Next3RemoteSblock word, 
/* 


structure for Series IV reporting 
x] 
S4 based CmdSblockSptr structure(deviceid byte-result byte), 
StatussSrepoert structure (¢ 
done byte, 
semaphore byte, 
result$blk$3ptr word) at (2FOCCH), 
lk 
declare data structures for leading code remotely 
xf 
Rload structure ¢ 
Lemd byte, 
Load?sa pointer, 
Length word, 
Execisa word) ;- 


Seject 
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/+ 
declare based structures for local commands 
x/ 
A. Se 1 declara Prcescind based CmdSblock3ptr structure 
€ Cmd byte, 
Response byte, 
Diagnosticscode hyte, 
Version hyte- 
Hostid ¢€6) byte), 


LLoarea based Cmd$block$ptr structure 
( Cmd bytes 

Response byte, 

Promsarea pointer, 

Tosarea pointer, 

Length word, 

exec$SA word, 

MipSdefSerea byte Dd, 


Remote$boot basad Cmd$SbhlockSptr structure 
( Cmed byte, 

Response byte, 

Class$code word), 


GoSares based CmdSblock$ptr structures 
( Cmd byte, : 
Respense byte, 
Exec$SA pointer), 


Mip$sizes based MipSdefsptr structure 
€ Devent byte, 
Idssent kyte, 
Thistdev byte, 
Rsrved byte, . 
MipSbases (8) word), , | : ~ 


MipSdevidef based MipSdefSptr (1) structure 
( DevSid byte-r | 

Status byte, 

RQOSteSCB pointer, 

RGOSfrom$C8 pointer, 

Int$type byte, 

TimeftoS$wait byte, 

IntSadr word )- 


EchosSreq based CmdSblockSptr structure (¢ 
Cnd byte, 
Response bytes 
DestSadr (6) byte, 
info word, 
Reply word )- 


/x 
declare structures for remote commands 
x/ 
133 1 declare 
Remotescmd based DLLSbufptr$o structure 
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Link pointer, 
P$Length word, 
CAS1 pointer, 
CAS2 word, 
SA$1 pointer, 
SAS2 word, 
Type words 

Cyd byte, 

Info word )- 


RemoteSdump based CLL3bufptrso 


Link pointer, 
P$Length word, 
DAS1 pointer, 
DAS2 word, 
SAS1 pointer, 
SA$S2 word, 
Type word, 

Cmd byte, 
Startiadr pointer, 
Length werd, 
Info byte), 


Remotef$data based DLLSkufptrgo 


Link pointer, 
P$Len¢cth words 
DAS1 pointer, 
DAS2 word, 
SAS1 pointer, 
SAS2 word, 
Type word, 

Cnd bytes 
Block word - 


Lemd byte, 


Load$SA pointer, 
Length werd, 
exec$SA word, 
Info(1) byte); 
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136 


140 


141 


144 


145 


[a 
declare some utility routines 


declare the routine to get the Cmd: block 
x / 
LoadSCmdSblock$ptr: 
Sif Rv 
procedure externél, 
delse 
Sendif 
and LoadSCmdSblockiptr, 
/* 


declare procedures to load comm memory to/from host 


* / 
Local3move: 
Sif Rv 
procedure external, 
Selse 
Sendif 
end LocelsSmove, 
/* 
short form for DLL Send 
x / 
DLLSend: 
$if Rv 
procedure external, 
Selse 
Sendif 
end DLLsend,s 
/*x 
short form for dll reéeturn buffer 
x/ —— 
DLLrethbuf: 
Sif Rv 
procedure externeéel, 
Selse 
Sendif 
and OLLrethuf- 
/* 
boot interrupt routine 
x / 
CQSCASint$routine: 
Sif Rv 
procedure external, 
Selsa 
Sendif 
end CQECASintSroutines 
/x 
set LED on or off derending on results of 
*x/ 
Set$Llect: 
Sif Rv 
procedure external, 
Selse 
Sendif 
and Set$LeEd, 
/* 
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146 


147 


148 


routine Tor neil to use WRENN eresent 


x/ 
Soot3recister: 
Sif Rv 
procedure external, 
Selse 
Sendif 
end S8o00t$Sregister, 
/*x 
routine to save ¢re 
x / 
SavegrevdSinfo: 
Sif Rv 
proceaure external, 
Selse 
Sendif 
and SaveSrevdsinfo-, 


Bunpandchecktries: 
Sif Rv 


edr and other infec of a msg 


procedure boolean external, 


" 


lsa 


@ 
endif 
n 
=) 


A 


4 @ 


ject 


d Bumepandchecktries, 
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/*x 


xf 


farst define OLL interface routines 


152 1 Transmit: 
Sif Rv 


procedure(DAptr,Cmd,Info) external, 


$Selse 
Bendif 


declare DAptr pointer, 
Cnd byte, 
Info word, 


“$if not Rv 
Sendif 
154 2 end Transmit, 


/* 


x / 


this routine does waiting for a reaply 


155 4 WaitSforSreply: 


as 
oO. 
Oo 
MT 


procedure loolean,z 
/x 7 
send msg via DLL 
x / 
c@#ll DLLsend,; 
/* 
start timer ana then wait for a reply 
x] 
call CQ$setSelarmCaCQswaitSach, .CQ$RemoteSwaitingSmb,100,0); 
OLLSbufSptr = CQ$receivel(.CQsRemoteSuzitingSmb) z 
/k 
have something, see if timeout or msg 
xf 
call CQSClearSalerm(aCQswaittach); 
/x 
check if timeout 
x/ 
return (CCLLSbufSptr$o <> .~CQSWaitSach), 


end WaitS3forSreply,s 


geject 
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/k 


declare buffering routines for remote loading 


*/ 
162 1 Get$buffer: 
procedure bytes 
/x* 
return current buffer 
x/ 
163 2 Tries = 0; 
164 2 LO: call OLLrethuf, 
/* 
if the previous buffer was the lest onevreturn EOF 
xf 
165 2 if Last$buffer then raturn ESEOF; 
/x* 
get transmit buffer to send request 
x / 
167 2 L1: call Transmit(@RemotesserverSadr-NMLEboothdatagrequest,Next$remotesSblock), 
/* 
send to OLL and wait for a reply 
x/ 
168 2 if not Wait$Sfor$reply then 
169 2 do; 
179 3 if Bumpandchecktries then return NoSresponses 
172 3 else goto Lt, 
173 3 ends 
/* | 
heve reply, make sure it is what we want 
*/ 
174 2 if (RemotesSdata.cmd <> NML$hoot$datasSresponse) or 
175 2 CRemote3datasablock <> Next3remote$block) then go to LO- 
/x*x 
it is, set up pointer and things 
x] 
176 2 Next$remoteSblock = Next3remoteSblock + 1; 
177 2 if (Num$remaining:= RemoteSdataePSLength -17) <> 1497 then 
178 2 LastS$buffer=TRUE; 
179 2 Bufptr = BRemoteSdeta.wlemd, 
160 2 return CMOSCKX-; 
181 2 end GetSbufferzs 
182 1 Read$Sbin: . 
procedure(Dptr,Count) byte publics 
183 2 declere Optr pointers, Count word, 
Cadr structure (Coffset words, base word) at (@Dptr), 
ToSmove word, Status byte, 
184 2 do while (Count <> 0); 
185 3 if Num$remaining = .0 then 
136 3 doz 
/x ; 
buffer is empty, get PRM to refill it 
*/ 
187 4 if (Status := Getbuffer) <> CMDOSCK then return Status, 
189 4 end, 
/* 
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xf 


190 3 if Count > Numremaining then Tefmove = Numfremainings 

192 3 else To$move = Count, 
193 3 call Movb€Bufptr,Dptr,ToSmove), 

194 3 Dacdr.offset = Cadr.aoffset + Toftmove,; 

195 3 Bufedr,.offset = Bufadr.offset + ToSmove, 

196. 3 Count = Count - Tofmove,z 

197 3 Nurgremaining = Num3remaining - Tofmove, 

198 3 and; 

199 2 ‘return CMDSOK,; 

200 2 end ReaaSsbin; \ 


Sseject 
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205 


206 
208 


209 
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/ x 
declare remote loading routine 
xf ; 
DoSremoteslcad: 
procedure(Class) bytes 
declare Class word, Status hyte,s 


Lastbuffer = FALSE, 
Status = CMDEICK; 


Tries, Numremaining = O- 
/x 

senc the requast and wait for reply 
*/ 


LO: if Bumpandchecktries then return Nofresponses 
call Transmit (@Remotes$booterSadr-NMLikboottcmd$reauest,Class), 
/x 
send and wait for 4&4 reply 


x / 
if not WaitSforSreply then goto LC, 
[x 
have reply. hopefully it is whet we want 
*/ 


call SaveSrevdSinfo, 
if TempSkuf.cmd <> NMLS800tScmd$response then 


do, | 
goto LO, 
end, 
/k 
see if boot request was accepted 
*/ 
NextfreamotesSblock = 0; 
/x 
begin processing load module{s). 
xf 
L1: 


if (Status:=ReadShin(adRload.sLeomd,-9)) = CMDSOK then 
do; 
if (Status:=Read3bin(€Rload.LoadfsarvRloed.length)) = CMESOK then 


do; 
if CRload.lemd and Start$bit) <> 0 then call Short$call(Rload 
else Executicn$SSA = Rload.eExecS$saz 
if (Rload.s.lemd and MoreSbit) <> C then goto Lz 
end, 
end, 


call OLLretbuf-, 
return Status, 
end DoSremoteSload-, 


$eject 
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/« 


- declare remote dumping procedure 


x/ 


231 1 DosremoteScdump: 
procedures 


232 2 

233 2 

234 

236 2 

237 2 

238 2 

239 2 

240 2 

241 2 end 


/x 
first make cepy of importent fields in rev’ed buffer and then 
release original 


x] 
call SaveSrevd$Sinfo-s 
/*x 
cet transmit buffer to send back eck end data 
x / 


call Transmit(CiTemeSbuf.srcadr-NMLiremotesSdumpSresponsesO0), 
/x 
put data into it 
*/ 
if Temp$buf.elength > 1493 then TemeSbuf.length=1493; 
call Movb(Tempfbuf.start$adr-a@RemoteSdump.info,s 
Tempihbuf.lensth), 
RemoteidumpePSlength = TempSbuf.alength + 21; 


RemoteSdump.startadr = Tamptbuf.startadr, 
Remotesdump.selength = TempSbhuf.length-, 
/x 
give to CLL to send 
xf 


call DLLsend-, 
DotremoteSdump, 


Seject 
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/« 
declere routine tto handle MIP things 
* 
242 1 Handlegmip: 
Sif Rv 
procedure external, 
Selse 
Sendif 
243 Z end Handlesmip, 


Seject 
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/x 
define routine that processes most commands 


* / 
244 4 Process$bootScind: 
procedure, 
245 2 declares Response hytesz 
[x 
init a few variables 
x/ 
246 2 Run = FALSE; 
[x a 
chack for legal cmd and if ok, then set up to execute each 
x/ 
247 2 if Cmd > C3doSReset then 
248 2 do, /* iliagal cmd */ 
249 3 LL¢arezeResponse = BadScommand, 
250 3 and, 
251 a else 
. do; 
/* 
good command value 
*/ 
252 3 Response = CMHDEOKs 
/x* 
now process each type of command 
xf Po 
253 3 cdo case Cind, 
254 4 returns 
255 4 do, /x Presence x/ 7 gj 
256 2 PreScmd.adiagnostic$code = CTresultz » 
257 2) PresScmd.eversion = Current$Version, 
258 5 call movbC&CQ_CLL_hostid,@?rcscmdshostid,6); 
259 5 end, : 
260 4 des /* local lozd and go x*/ 
261 5 Run = TRUE-s 
262 5 Mipdefptr = albL$area.MipsdefSareazs 
263 5 ExecutionsSA = LLSarea.ExecdSaA, 
264 5 call HandleSmip, 
265 5 call LocalSmove, 
266 5 end? 
267 4 dos /x Remote lead x/ 
268 5 Response = DoSremotesload(RemoteSboot.classScode), 
269 S) end, 
270 4 doz /* MIP Init */ 
271 5 Mipdefetr = aLlSarea.FromSareazs 
eve 5 call HandleSmip-, 
273 5 Run = TRUE? 
274 5 and, 
275 4 dor /% local load x/ 
276 5 call LecalSmove; 
e?? 5 end; - 
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2/78 4 
279 5 
280 > 
281 
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286 4 
2387 5 
288 5 
289 b) 
290 6 
2914 6 
72 6 
294 6 
295 6 
296 b) 
oot 5 
298 4 
299 5 
300 5 
301 5 
Sve 5 
303 4 
304 5 
50:9 5 
306 i) 
307 5 
308 5 
a09 4 
ot0 5 
311 5 
S12 5 
513 4 
314 5 
12 5 
316 4 
317 5) 
318 3 


dors /* Local Dump x/ 
call Localtmove, 
and+, 


do, /* Go x/ 
GOfarea.response = CMDEOK, 
Output(7H) = 1, 
call Long3coto(GoSsareastxectsSa), 
and, 


doz /* generate echo reauest */ 


Lecho: call Transrit(2Echoreq.dest$adr-NMLtechoSrequestvEchoreq.sinfo), 


my 
rm ope 


if WaitsSforSreply then 


do; 
call SaveSrevdSinfo, 
echoreq.reply = Reqtclass, 


if Temp3buf.cmd = NML3echoSresponse then Response = CMDSOK; 
else gotec Lecho,s 
end, 
else Rasponse = Nosecho, 
and, 


doz /* Remote forced boct and go */ 


/* 
start remote load sequence with class code that was passed 
xf 
call Szvesrevdtinfo, 
Response = DofremoteSload(Reqclass); 
return; 
end? 


doz /* echo request */ 
call SaveSrevdSinfo, . 
call Transmit(@RemoteSserversadr/-NMLSecho$Sresponse,Reqfclass); 
call DLLsend, 
return, 
end, 


doy /* remote dump request */ 
call DoSremoteSdump, 
return, 

end, 


dce-s /* remote reset */ 
call LongSgoStolacClhootdmtentry): 
end, 


ends /* of cass stmt */ 
/x 

update emd block 
xf 
LLéerea.esResponse = Responses 
Output (7H) =1- 
/x 
if requested to start system Cand boot task) then do it 
x / 
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319 5 if rot Run then returns 
321 5 Dorun: 
call ShorticallCExecutionsSsa), 
322 3 ends /* of good cmd x/ 
323 2 end ProcessShboots$ecmd, 


Saject 
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S37 


344 
345 


rm mM 


WW po 
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Suu Pe PE WN 
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/«x 
define boot task 
x / 
CAShboot$task: 
procedure public, 


LocalibootScemd3msg.type = 0; 
NMLentry = .CQOLLrxrethbuf, 
/* 


clear cut MIP da ta bases \ 
x] 


call setbh(0-,a@ Saaisdcnasonen: ? 
this is the command execution loop. If there is already 


do forever 


A 
Cmdfloop: yw tp q 
if First3bootSemd then call COQCASintSroutins, y" 


a command pending, then post dummy msg. is 
xf sf freak 


i* 

must wait for command / 
x/ / r 
Cmd = CQ SOLLSconnect(NMLStypereCO$boot$oemd3 mb); att uekir | 
OLLShutSptr-Cmd$blcckSptr = CQaSReceivel. basic etenceanis 
/* 


heave a command. If the msg is of type Local then 
it came from the host. 
*/ 
ee 3 Remove senda yes = 0 then 
do,z 
/x 
command is local, get cmdblockptr and Cmd 
xf 
céll LoadsCmas bleckSptr 
and, 


alse 

doz 

_ Tk 

cmd cama from cata link. If remote dump then 
handle it immediately, else let processhootcmd 

do it. 

| %/ 3 

| Cmd = RemotesStosSlocalScmd(CRemotetcmd.Cmd and OFH), 

| if Cmd = 0 then 

| dos /x we don’t handle this */ 

! call SubsystemcallCOLLEbufSptrSa-NMLentry), 

Prey 

nd; 

/* 


we now have either a local commane or aA non-remote dump 
ccmmand. See if the RAM test has been run 
and if not, run it. If it has, then exacute command 
Nz 
Lf Ran$SRT then: 
do; 
/x* “ 
have run RAM testy, so execute command, 
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346 
347 
348 
349 


We 


WR EEE 


nm 
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af 
call Processiboot$emnd, 
First$bootSemd = FALSE, 


eaxecute RAM tast. this will wipe all 
except for FirstS$bcot3cmd. After it, 
x/ 
disable, 
if CTresult = 0 then 
CTresult = CQSramibtest, 
REnSRT = TRUE- | 
cell CQCBinit, 
nd; 
end, /* forever loop *x/ 


end CQsboot3task, 
seject 
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Sif not Rv 
sendif 


358 1 end C33hoo0 


MODULE INFORPFATION: 


CODE AREA SIZE 
CONSTANT AREA SIZE 
VARIABLE AREA SIZE 
MAXIMUM STACK SIZE 
1139 LINES READ 

O PROGRAM WARNINGS 
Q PROGRAM ERRORS 
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